home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
windows
/
ext.zip
/
EXT.XWS
< prev
next >
Wrap
Text File
|
1992-02-04
|
932b
|
30 lines
/*
CREATES A FILE EXTENSION (BOOKNAME)
THIS SCRIPT WILL CREATE AN EXTENSION CONSISTING OF
CURRENT MONTH AND DATE USING PHONE BOOK NAME AS THE FILENAME.
CREATED FOR VERSION 1.2.1 WHICH DOES NOT PROVIDE FILE
EXTENSION FOR CAPTURE FILE UNLESS YOU SPECIFY ONE.
*/
IF (CURMONTH = 12) AND (CURDAY < 10) THEN CAPTURE NAME + ".C0"+STR(CURDAY) : JUMP DONE
IF (CURMONTH = 11) AND (CURDAY < 10) THEN CAPTURE NAME + ".B0"+STR(CURDAY) : JUMP DONE
IF (CURMONTH = 10) AND (CURDAY < 10) THEN CAPTURE NAME + ".A0"+STR(CURDAY) : JUMP DONE
IF CURMONTH = 12 THEN CAPTURE NAME + ".C" + STR(CURDAY) : JUMP DONE
IF CURMONTH = 11 THEN CAPTURE NAME + ".B" + STR(CURDAY) : JUMP DONE
IF CURMONTH = 10 THEN CAPTURE NAME + ".A" + STR(CURDAY) : JUMP DONE
IF CURDAY < 10 THEN CAPTURE NAME + "." + STR(CURMONTH) + "0" + STR(CURDAY) ELSE ...
CAPTURE NAME + "." + STR(CURMONTH) + STR(CURDAY)
LABEL DONE
END